10 REM
11 REM BILDSCHIRM LOESCHEN + FAERBEN
12 REM
13 PRINT"[147]":POKE53280,0:POKE53281,0
14 REM
15 REM A$ = TEXT
16 REM X  = X-POSITION
17 REM Y  = Y-POSITION
18 REM
19 A$="SCROLLER BY ZEITGEIST!":X=0:Y=23
20 B$="CIVITAS":C$="STUDIOS":A=30:B=22
21 REM
22 REM REINSCROLLEN
23 REM
24 FORG=1TOLEN(A$)
25 POKE211,X:POKE214,Y:SYS58732
26 PRINTRIGHT$(A$,G)
27 NEXTG
28 REM
29 REM FARB-DEFINITION
30 REM
31 F(1)=6:F(2)=2:F(3)=5:F(4)=7:F(5)=1
32 REM
33 REM TEXT-FADE VORWAERTS
34 REM
35 FORG=1TO5
36 POKE211,A:POKE214,B:SYS58732
37 POKE646,F(G):PRINTB$
38 FORQ=1TO50:NEXTQ,G
39 REM
40 REM WEITER ?
41 REM
42 IFD=3THEN54
43 REM
44 REM TEXT-FADE RUECKWAERTS
45 REM
46 FORG=5TO0STEP-1
47 POKE211,A:POKE214,B:SYS58732
48 POKE646,F(G):PRINTB$
49 FORQ=1TO50:NEXTQ,G
50 REM
51 REM WIEDERHOLUNG
52 REM
53 D=D+1:GOTO35
54 REM
55 REM C$ ZEICHEN FUER ZEICHEN
56 REM
57 FORG=1TOLEN(C$)
58 POKE211,A:POKE214,B+1:SYS58732
59 PRINTLEFT$(C$,G)
60 FORQ=1TO20:NEXTQ,G
61 REM
62 REM RAUSSCROLLEN
63 REM
64 FORG=1TOLEN(A$)
65 POKE211,X:POKE214,Y:SYS58732
66 PRINTMID$(A$,G,LEN(A$)-G+1)" "
67 NEXTG
68 REM
69 REM LETZTES ZEICHEN LOESCHEN
70 REM
71 POKE211,X:POKE214,Y:SYS58732
72 PRINT" "
73 REM
74 REM C$ AUSFADEN
75 REM
76 FORG=5TO0STEP-1
77 POKE211,A:POKE214,B+1:SYS58732
78 POKE646,F(G):PRINTC$
79 FORQ=1TO30:NEXTQ,G
80 REM
81 REM B$ NACH OBEN
82 REM
83 FORG=BTO1STEP-1
84 POKE211,A:POKE214,G:SYS58732
85 PRINT""B$
86 POKE211,A:POKE214,G+1:SYS58732
87 FORQ=1TOLEN(B$):PRINT" ";:NEXTQ
88 FORQ=1TO20:NEXTQ,G
89 REM
90 REM B$ NACH LINKS
91 REM
92 FORG=ATO1STEP-1
93 POKE211,G:POKE214,1:SYS58732
94 PRINTB$" "
95 FORQ=1TO20
96 NEXTQ,G
97 REM
98 REM B$ AUSFADEN
99 REM
100 FORG=5TO0STEP-1
101 POKE211,1:POKE214,1:SYS58732
102 POKE646,F(G):PRINTB$
103 FORQ=1TO30:NEXTQ,G
104 REM
105 REM ENDE
106 REM
107 FORG=1TO1000:NEXT
108 PRINT"[147]":LIST